home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 101
- Top = 109
- BorderStyle = bsDialog
- Caption = 'Disktective 1.5'
- ClientHeight = 338
- ClientWidth = 472
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 16
- Top = 16
- Width = 441
- Height = 257
- end
- object Bevel4: TBevel
- Left = 200
- Top = 176
- Width = 241
- Height = 65
- end
- object Bevel3: TBevel
- Left = 272
- Top = 88
- Width = 169
- Height = 73
- end
- object DirItemsLabel: TLabel
- Left = 368
- Top = 192
- Width = 57
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Color = clWhite
- ParentColor = False
- end
- object Label2: TLabel
- Left = 32
- Top = 32
- Width = 88
- Height = 13
- Caption = 'Selected directory:'
- end
- object NumberOfItemsText: TLabel
- Left = 216
- Top = 192
- Width = 128
- Height = 13
- Caption = 'Total number of files found:'
- end
- object TotalDirectorySizeText: TLabel
- Left = 216
- Top = 216
- Width = 91
- Height = 13
- Caption = 'Total directory size:'
- end
- object DirSizeLabel: TLabel
- Left = 320
- Top = 216
- Width = 105
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Color = clWhite
- ParentColor = False
- end
- object ReportLabel: TLabel
- Left = 280
- Top = 80
- Width = 32
- Height = 13
- Caption = 'Report'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object ResultsLabel: TLabel
- Left = 208
- Top = 168
- Width = 35
- Height = 13
- Caption = 'Results'
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 32
- Top = 80
- Width = 145
- Height = 137
- ItemHeight = 16
- TabOrder = 0
- OnChange = DirectoryListBox1Change
- end
- object DriveComboBox1: TDriveComboBox
- Left = 32
- Top = 224
- Width = 145
- Height = 19
- DirList = DirectoryListBox1
- TabOrder = 1
- end
- object StartButton: TButton
- Left = 16
- Top = 288
- Width = 89
- Height = 25
- Caption = '&Start'
- TabOrder = 2
- OnClick = StartButtonClick
- end
- object HelpButton: TButton
- Left = 376
- Top = 288
- Width = 83
- Height = 25
- Caption = '&Help'
- TabOrder = 3
- OnClick = HelpButtonClick
- end
- object ExitButton: TButton
- Left = 288
- Top = 288
- Width = 81
- Height = 25
- Caption = '&Exit'
- TabOrder = 4
- OnClick = ExitButtonClick
- end
- object ViewReportButton: TButton
- Left = 200
- Top = 288
- Width = 81
- Height = 25
- Caption = '&Report'
- TabOrder = 5
- OnClick = ViewReportButtonClick
- end
- object MakeReportCheck: TCheckBox
- Left = 288
- Top = 104
- Width = 137
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Add to report'
- TabOrder = 6
- OnClick = MakeReportCheckClick
- end
- object DirectoryMemo: TMemo
- Left = 32
- Top = 48
- Width = 409
- Height = 17
- ReadOnly = True
- TabOrder = 7
- end
- object IncludeDateTimeCheck: TCheckBox
- Left = 288
- Top = 128
- Width = 137
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Include Date and Time'
- TabOrder = 8
- end
- object AbortButton: TButton
- Left = 112
- Top = 288
- Width = 81
- Height = 25
- Caption = '&Abort'
- TabOrder = 9
- OnClick = AbortButtonClick
- end
- end
-